home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 14 / 014.d81 / worm boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  41 lines
  1. 5 print"[147]":poke53281,11:poke53280,11: poke53272,23
  2. 10 print"*[159]*[156]***[158]*[215][207][210][205][211][200][207][212]      [158]***[156]*[159]**"
  3. 15 fort= 1 to 3
  4. 20 print" [159]======================================":nextt:
  5. 25 print"[144][194]eware! [217]our city is in double trouble!"
  6. 30 print"[198]requent meteor showers threaten you and"
  7. 35 print"all your friends. [200]owever, a laser-"
  8. 40 print"constructed defense screen can slow"
  9. 45 print"and/or stop meteors. [212]o compound the "
  10. 50 print"< press a key: [200][213][210][210][217]! >"
  11. 55 get t$: ift$="" then 55
  12. 60 print"[147]problem, a family of sinister worms"
  13. 65 print"makes frequent attacks on your defense"
  14. 70 print"wall as soon as it's built, because"
  15. 75 print"their mother was killed in a government"
  16. 80 print"funded defense wall experiment. [193]s you"
  17. 85 print"blast a worm, it gets shorter and"
  18. 90 print"shorter.  [200]owever, if it is not killed"
  19. 95 print"before reaching your wall, it will"
  20. 100 print"begin chewing on it, which of course"
  21. 105 print"makes you more vulnerable to the"                   "
  22. 107 [153]"meteors, so..."                                     "
  23. 110 print"< press a key >"
  24. 115 get t$: if t$= "" then 115
  25. 120 print"[147][150]": a$="       "
  26. 130 printa$"[166]   [166] [166]  [166] [166][166][166][166] [166][166][166][166] [166]   [166]"
  27. 135 printa$"[166]   [166] [166]  [166] [166]  [166] [166]  [166] [166]   [166]"
  28. 140 printa$"[166][166][166][166][166] [166]  [166][160][166][166][166][166][160][166][166][166][166][160] [166] [166]"
  29. 145 printa$"[166][160][160][160][166][160][166][160][160][166][160][166][160][166][160][160][166][160][166][160][160][160][160][166]"
  30. 150 printa$"[166][160][160][160][166][160][166][166][166][166][160][166][160][160][166] [166]  [166]   [166]"
  31. 160 print"[144]1.  [210][213][206] [215][207][210][205][211][200][207][212]"
  32. 170 print"2.  [199]o back to [204][207][193][196][211][212][193][210]"
  33. 180 print"[215]hich ?";
  34. 190 poke198,0:wait198,1:geta$
  35. 200 ifa$<>"1"anda$<>"2"then                 poke53280,rnd(1)*15:goto190
  36. 210 ifa$="1"thenf$="wormshot"
  37. 220 ifa$="2"thenf$="hello"
  38. 230 printa$;
  39. 240 print"[151]load"chr$(34)f$chr$(34)       ",8":print"run"
  40. 250 poke631,13:poke632,13:poke198,2:        end
  41.